home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Graphics / X-TRACE67.lzh / XTRACE R67 / X-TRACE / X-TRACE.rsrc / TEXT_702_roku_line.xti.txt < prev    next >
Text File  |  1999-01-31  |  377b  |  19 lines
  1. model    "Rokkaku line"
  2. {
  3.     unit;
  4.     para    roku.para.x,roku.para.y,roku.para.z;
  5.     leverz    roku.levr.x,roku.levr.y,roku.levr.z;
  6.     var        l2=roku.l/2;
  7.     boundary    oval    0,0,roku.l/2, 0,0,1, (roku.l/2 + roku.r)*sqrt (2),roku.r*sqrt (2)
  8.     {
  9.         sphere    0,0,roku.l, roku.r;
  10.         sphere    0,0,0, roku.r;
  11.         and
  12.         {
  13.             plane    0,0,0, 0,0,-1;
  14.             plane    0,0,roku.l, 0,0,1;
  15.             cylind    0,0,0, 0,0,1, roku.r;
  16.         }
  17.     }
  18. }
  19.